Смотреть примеры Пример 1: USES graph, crt; VAR i,a:integer; BEGIN Initgraph(a,a,’c:\tp\bgi’); for i:= 250 to 300 do begin Setcolor(15); Circle(i, 100, 25); delay(20); SetColor(0); Circle(i,100,25); end; ReadKey; Closegraph; END.   Пример 2: USES graph, crt; VAR i,a:integer; BEGIN Initgraph(a,a,’c:\tp\bgi’); i:=25; repeat Setcolor(15); Circle(i, 100, 25); delay(20); SetColor(0); Circle(i,100,25); i:=i+1; until keypressed; ReadKey; Readkey; Closegraph; END.